home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / rebelssource.lha / Sources / LOOP.ASM < prev    next >
Encoding:
Assembly Source File  |  1994-07-09  |  590 b   |  33 lines
  1.  
  2. ; Harcode MC8051 Looping Code done by Zulu & Grey of Rebels
  3.  
  4.         DEFSEG LED,start=0000H,CLASS=CODE
  5.  
  6.         SEG    LED
  7.  
  8. START:  setb    p1.6
  9.         mov     c,p1.6
  10. LOOP:
  11.         cpl     c
  12.         mov     p1.6,c
  13.         mov     A,#4
  14.         mov     r0,a
  15. loop0:
  16.         cpl     c
  17.         mov     p1.7,c
  18.         cpl     c
  19.         mov     p1.5,c
  20.         mov     A,#255
  21.         mov     r1,a
  22. Loop1:
  23.         mov     a,#255
  24.         mov     r2,a
  25. Loop2:
  26.         djnz    r2,loop2
  27.         djnz    r1,loop1
  28.         djnz    r0,loop0
  29.         ljmp    LOOP
  30.  
  31.         END
  32.  
  33.